﻿Public Class lfrmIniciasesion

    ' TODO: inserte el código para realizar autenticación personalizada usando el nombre de usuario y la contraseña proporcionada 
    ' (Consulte http://go.microsoft.com/fwlink/?LinkId=35339).  
    ' El objeto principal personalizado se puede adjuntar al objeto principal del subproceso actual como se indica a continuación: 
    '     My.User.CurrentPrincipal = CustomPrincipal
    ' donde CustomPrincipal es la implementación de IPrincipal utilizada para realizar la autenticación. 
    ' Posteriormente, My.User devolverá la información de identidad encapsulada en el objeto CustomPrincipal
    ' como el nombre de usuario, nombre para mostrar, etc.

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim samplePrincipal As New clssPrincipal(Me.UsernameTextBox.Text, Me.PasswordTextBox.Text)
        Me.PasswordTextBox.Text = ""
        If (Not samplePrincipal.Identity.IsAuthenticated) Then
            ' The user is still not validated.
            MsgBox("The username and password pair is incorrect")
        Else
            ' Update the current principal.
            My.User.CurrentPrincipal = samplePrincipal
            MsgBox("OK")
            mdiPrincipal.Show()
            Visible = False
        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub lfrmIniciasesion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mdlHerramientas.loadOption()


        'Dim rawSalted As String = "1151946843CombatePersonal"
        'Dim saltedPwBytes() As Byte = System.Text.Encoding.Unicode.GetBytes(rawSalted)
        'Dim sha1 As New System.Security.Cryptography.SHA1CryptoServiceProvider
        'Dim hashedPwBytes() As Byte = sha1.ComputeHash(saltedPwBytes)
        'Dim hashedPw As String = Convert.ToBase64String(hashedPwBytes)

        'Me.UsernameTextBox.Text = hashedPw
    End Sub
End Class